powered by
focal(x) <- value
Shafer, G., (1976), A Mathematical Theory of Evidence Princeton University Press
# state space stateSpace <- c("a", "b", "c") # mass functions m <- mass(list("a"=0.1, "b"=0.1 , "c"=0.4, "a/b/c"=0.4), stateSpace) # replace focal elements focal(m) <- list("a/b"=1)
Run the code above in your browser using DataLab